home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / starfi_1 / module1.bas < prev    next >
BASIC Source File  |  1997-09-07  |  887b  |  24 lines
  1. Attribute VB_Name = "Module1"
  2. Option Explicit
  3. Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long
  4. ' set up a Type Stucture for the star.
  5. Type star
  6.     x As Integer ' x coordinates of star.
  7.     y As Integer ' y coordinates of star.
  8.     Speed As Integer ' speed the star will travel.
  9.     color As Long ' color star will be.
  10. End Type
  11.  
  12. 'set a global type stucture array called tStar.
  13.  
  14. Global Const NUMBER_STARS = 100
  15. Global tStar(NUMBER_STARS) As star
  16. Global Const SRCCOPY = &HCC0020
  17. Global Const SRCAND = &H8800C6
  18. Global Const SRCPAINT = &HEE0086
  19. Global KeyStats As Integer
  20. Global Const KEY_LEFT = &H25
  21. Global Const KEY_UP = &H26
  22. Global Const KEY_RIGHT = &H27
  23. Global Const KEY_DOWN = &H28
  24.